1 SCREEN,0:X=200:INPUTA,B:C=197/B:DIMD(A+2):FORE=1TOA:INPUTF:D(E)=F*C:NEXT:CLS:FORG=1TOA:FORM=1TO3:READK:FORH=1TO3:I=H+J:IFG>ATHENK=0
2 L=X-D(G)-H:LINE(I+1,L)-(I+4,L),K:LINE(I+4,L+2)-(I+4,X-1-H),K:LINE(I,X-D(G)+1)-(I,X),K:NEXT:J=J+8:G=G+1:NEXT:G=G-1:RESTORE:NEXT:DATA4,6,1